home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / curves / tractrix.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  537 b   |  18 lines
  1. .geometry "version 0.1";
  2. v1 = .free(0.374648, 0.0338028, .L0, "1");
  3. v2 = .free(-0.0760563, 0.0338028, .L0, "2");
  4. l1 = .l.vv(v2, v1, .L0);
  5. l2 = .l.vlperp(v1, l1, .L0);
  6. c1 = .c.vv(v2, v1, .L0);
  7. v4 = .vonc(c1, -0.339939, -0.331574, .L0, .cross);
  8. ang = .a.vvv(v1, v2, v4);
  9. l3 = .l.vv(v2, v4, .L0, .longline);
  10. v3 = .v.ll(l3, l2, .red, .L0, .plus);
  11. opp = .len.vv(v3, v1);
  12. adj = .len.vv(v1, v2);
  13. tang = .len.divide(opp, adj);
  14. const = .len.f(0.2);
  15. rho = .len.times(tang, const);
  16. cc = .c.vlen(v2, rho);
  17. v6 = .v.lc(l3, cc, 1, .smear, .L0, .plus);
  18.